3005 //  MOVLW 0x5
1283 //  BCF STATUS, 0x5
00A9 //  MOVWF n
3000 //  MOVLW 0x0
00AA //  MOVWF 0x2A
3022 //  MOVLW 0x22
0093 //  MOVWF array
3000 //  MOVLW 0x0
0094 //  MOVWF 0x14
3003 //  MOVLW 0x3
0095 //  MOVWF 0x15
3000 //  MOVLW 0x0
0096 //  MOVWF 0x16
3005 //  MOVLW 0x5
0097 //  MOVWF 0x17
3000 //  MOVLW 0x0
0098 //  MOVWF 0x18
302F //  MOVLW 0x2F
0099 //  MOVWF 0x19
3000 //  MOVLW 0x0
009A //  MOVWF 0x1A
3009 //  MOVLW 0x9
009B //  MOVWF 0x1B
3000 //  MOVLW 0x0
009C //  MOVWF 0x1C
01AB //  CLRF c
01AC //  CLRF 0x2C
2BE8 //  GOTO 0x3E8
3001 //  MOVLW 0x1
1283 //  BCF STATUS, 0x5
07AB //  ADDWF c, F
1803 //  BTFSC STATUS, 0x0
0AAC //  INCF 0x2C, F
3000 //  MOVLW 0x0
07AC //  ADDWF 0x2C, F
2BE8 //  GOTO 0x3E8
0829 //  MOVF n, W
3EFF //  ADDLW 0xFF
008C //  MOVWF 0xC
082A //  MOVF 0x2A, W
1803 //  BTFSC STATUS, 0x0
3E01 //  ADDLW 0x1
3EFF //  ADDLW 0xFF
008D //  MOVWF 0xD
082C //  MOVF 0x2C, W
3A80 //  XORLW 0x80
008E //  MOVWF 0xE
080D //  MOVF 0xD, W
3A80 //  XORLW 0x80
020E //  SUBWF 0xE, W
1D03 //  BTFSS STATUS, 0x2
2BFA //  GOTO 0x3FA
080C //  MOVF 0xC, W
022B //  SUBWF c, W
1C03 //  BTFSS STATUS, 0x0
2BFD //  GOTO 0x3FD
2BFE //  GOTO 0x3FE
2B5E //  GOTO 0x35E
2BFF //  GOTO 0x3FF
1283 //  BCF STATUS, 0x5
01AD //  CLRF d
01AE //  CLRF 0x2E
2BBC //  GOTO 0x3BC
3001 //  MOVLW 0x1
1283 //  BCF STATUS, 0x5
07AD //  ADDWF d, F
1803 //  BTFSC STATUS, 0x0
0AAE //  INCF 0x2E, F
3000 //  MOVLW 0x0
07AE //  ADDWF 0x2E, F
2BBC //  GOTO 0x3BC
082B //  MOVF c, W
3E01 //  ADDLW 0x1
008C //  MOVWF 0xC
082C //  MOVF 0x2C, W
1803 //  BTFSC STATUS, 0x0
3E01 //  ADDLW 0x1
3E00 //  ADDLW 0x0
008D //  MOVWF 0xD
098C //  COMF 0xC, F
098D //  COMF 0xD, F
0A8C //  INCF 0xC, F
1903 //  BTFSC STATUS, 0x2
0A8D //  INCF 0xD, F
0829 //  MOVF n, W
070C //  ADDWF 0xC, W
008E //  MOVWF 0xE
082A //  MOVF 0x2A, W
1803 //  BTFSC STATUS, 0x0
0A2A //  INCF 0x2A, W
070D //  ADDWF 0xD, W
008F //  MOVWF 0xF
082E //  MOVF 0x2E, W
3A80 //  XORLW 0x80
0090 //  MOVWF 0x10
080F //  MOVF 0xF, W
3A80 //  XORLW 0x80
0210 //  SUBWF 0x10, W
1D03 //  BTFSS STATUS, 0x2
2BDB //  GOTO 0x3DB
080E //  MOVF 0xE, W
022D //  SUBWF d, W
1C03 //  BTFSS STATUS, 0x0
2BDE //  GOTO 0x3DE
2BDF //  GOTO 0x3DF
2B62 //  GOTO 0x362
2BE0 //  GOTO 0x3E0
1283 //  BCF STATUS, 0x5
082D //  MOVF d, W
008C //  MOVWF 0xC
070C //  ADDWF 0xC, W
3E13 //  ADDLW 0x13
0084 //  MOVWF FSR
1383 //  BCF STATUS, 0x7
0800 //  MOVF INDF, W
008D //  MOVWF 0xD
0A84 //  INCF FSR, F
0800 //  MOVF INDF, W
008E //  MOVWF 0xE
082D //  MOVF d, W
008F //  MOVWF 0xF
070F //  ADDWF 0xF, W
3E02 //  ADDLW 0x2
3E13 //  ADDLW 0x13
0084 //  MOVWF FSR
0800 //  MOVF INDF, W
0090 //  MOVWF 0x10
0A84 //  INCF FSR, F
0800 //  MOVF INDF, W
0091 //  MOVWF 0x11
0811 //  MOVF 0x11, W
3A80 //  XORLW 0x80
0092 //  MOVWF 0x12
080E //  MOVF 0xE, W
3A80 //  XORLW 0x80
0212 //  SUBWF 0x12, W
1D03 //  BTFSS STATUS, 0x2
2B83 //  GOTO 0x383
080D //  MOVF 0xD, W
0210 //  SUBWF 0x10, W
1803 //  BTFSC STATUS, 0x0
2B86 //  GOTO 0x386
2B87 //  GOTO 0x387
2BB4 //  GOTO 0x3B4
1283 //  BCF STATUS, 0x5
082D //  MOVF d, W
008C //  MOVWF 0xC
070C //  ADDWF 0xC, W
3E13 //  ADDLW 0x13
0084 //  MOVWF FSR
1383 //  BCF STATUS, 0x7
0800 //  MOVF INDF, W
00A7 //  MOVWF swap
0A84 //  INCF FSR, F
0800 //  MOVF INDF, W
00A8 //  MOVWF 0x28
082D //  MOVF d, W
008C //  MOVWF 0xC
070C //  ADDWF 0xC, W
3E02 //  ADDLW 0x2
3E13 //  ADDLW 0x13
0084 //  MOVWF FSR
0800 //  MOVF INDF, W
008D //  MOVWF 0xD
0A84 //  INCF FSR, F
0800 //  MOVF INDF, W
008E //  MOVWF 0xE
082D //  MOVF d, W
008F //  MOVWF 0xF
070F //  ADDWF 0xF, W
3E13 //  ADDLW 0x13
0084 //  MOVWF FSR
080D //  MOVF 0xD, W
0080 //  MOVWF INDF
0A84 //  INCF FSR, F
080E //  MOVF 0xE, W
0080 //  MOVWF INDF
082D //  MOVF d, W
008C //  MOVWF 0xC
070C //  ADDWF 0xC, W
3E02 //  ADDLW 0x2
3E13 //  ADDLW 0x13
0084 //  MOVWF FSR
0827 //  MOVF swap, W
0080 //  MOVWF INDF
0A84 //  INCF FSR, F
0828 //  MOVF 0x28, W
0080 //  MOVWF INDF
2BB4 //  GOTO 0x3B4
